ENTRY ARDSTR,STRAT,SETPNT,VISVEC;
BEGIN "GRAPH"
REQUIRE "36A" COMPILER!SWITCHES;
REQUIRE "GRAPH.DCL" SOURCE!FILE;
SIMPLE INTERNAL PROCEDURE ARDSTR(STRING STR);
    BEGIN
    INTEGER I,CHA;
    FOR I←1 STEP 1 UNTIL LENGTH(STR) DO
	BEGIN CHA←STR[I FOR 1];
	IF CHA='12 THEN LINEF ELSE IF CHA='15 THEN CARTN
	    ELSE ANCHO(CHA);
	END;
    END;

SIMPLE INTERNAL PROCEDURE STRAT(STRING LABSTR; INTEGER IL,JL);
    BEGIN
    REAL II,JJ;
    MOVEA(II←IL,JJ←JL);
    ARDSTR(LABSTR);
    MOVEA(II←IL,JJ←JL);
    END;
INTERNAL SIMPLE PROCEDURE SETPNT(REAL X,Y);
    MOVEA(X,Y);

INTERNAL SIMPLE PROCEDURE VISVEC(REAL X,Y);
    DRAWR(X,Y);

END "GRAPH";